home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESFORM1.S < prev    next >
Text File  |  1993-03-26  |  2KB  |  80 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Form Manager routines 1 of 3.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; form_do
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _form_do
  20. _form_do:
  21. ;          .cargs    #4,ptree.l,obj
  22.  
  23. ptree            =    4
  24. obj             =    8
  25.  
  26.           move.l    #$32010101,d0       ; AControl  50,1,1,1
  27.           lea        obj(sp),a1           ; -> intin
  28.           lea        ptree(sp),a0       ; -> addrin
  29.           jmp        aes_do
  30.  
  31. ;-------------------------------------------------------------------------
  32. ; form_error
  33. ; form_dial
  34. ;-------------------------------------------------------------------------
  35.  
  36.           globl     _form_error
  37. _form_error:
  38.           move.l    #$35010100,d0       ; AControl  53,1,1,0
  39.           bra.b     form_erdi
  40.           globl     _form_dial
  41. _form_dial:
  42.           move.l    #$33090100,d0       ; AControl  51,9,1,0
  43. form_erdi:
  44. ;          .cargs    #4,intin
  45.  
  46. intin            =    4
  47.  
  48.           lea        intin(sp),a1       ; -> intin
  49.           jmp        aes_do
  50.  
  51. ;-------------------------------------------------------------------------
  52. ; form_center
  53. ;-------------------------------------------------------------------------
  54.  
  55.           globl     _form_center
  56. _form_center:
  57. ;          .cargs    #8,ptree.l,px.l,py.l,pw.l,ph.l
  58.  
  59. ptree             =     8
  60. px                =    12
  61. py                =    16
  62. pw                =    20
  63. ph                =    24
  64.  
  65.  
  66.           link        a6,#-10
  67.  
  68.           move.l    #$36000501,d0       ; AControl  54,0,5,1
  69.  
  70.           moveq.l    #-10,d1
  71.           lea        ptree(a6),a0
  72.           jsr        aes_call
  73.  
  74.           moveq.l    #-10,d1
  75.           lea        px(a6),a1
  76.           jmp        (a0)
  77.  
  78. ;          end of code
  79.  
  80.